home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk202 / bbbbs2 / rexx / baud.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  298b  |  24 lines
  1. /* Baud.rexx */
  2.  
  3. ARG screenflag .
  4.  
  5. IF ~SHOW('P','BAUD') THEN
  6.   DO
  7.     ADDRESS COMMAND 'ut:BB'
  8.     RETURN(0);
  9.   END
  10.  
  11. ADDRESS 'BAUD'
  12. IF screenflag='OFF' THEN
  13.   DO
  14.     CALL PostMsg()
  15.     Screen OFF
  16.     CALL SETCLIP('BBS_screen',0)
  17.   END
  18. ELSE
  19.   DO
  20.     Screen ON
  21.     CALL SETCLIP('BBS_screen',1)
  22.   END
  23.  
  24.